﻿Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.IO

Namespace DB

    ''' <summary>
    ''' TypeName:    LicenseInfoType
    ''' Author:      GeneratedCustomTemplate
    ''' DBTableName: SYS_Config
    ''' </summary>
    ''' <remarks></remarks>

    <Serializable()> _
    Public Class LicenseInfoType

#Region "Declarations"
        Protected Friend iCompanyName As String
        Protected Friend iAddress As String
        Protected Friend iContacts As String
        Protected Friend iLogo_Banner() As Byte
        <NonSerialized()> Protected Friend iLogo_Banner_Image As Image
        Protected Friend iLogo_Report() As Byte
        <NonSerialized()> Protected Friend iLogo_Report_Image As Image
        Protected Friend iLMDate As DateTime
#End Region

#Region "Properties"
        Public Property CompanyName As String
            Get
                Return Me.iCompanyName
            End Get
            Set(value As String)
                Me.iCompanyName = value
            End Set
        End Property
        Public Property Address As String
            Get
                Return Me.iAddress
            End Get
            Set(value As String)
                Me.iAddress = value
            End Set
        End Property
        Public Property Contacts As String
            Get
                Return Me.iContacts
            End Get
            Set(value As String)
                Me.iContacts = value
            End Set
        End Property
        Public Property Logo_Banner As Byte()
            Get
                Return Me.iLogo_Banner
            End Get
            Set(value As Byte())
                Me.iLogo_Banner = value
                If Not Me.iLogo_Banner Is Nothing Then
                    Dim ms As New MemoryStream(Me.iLogo_Banner)
                    Me.iLogo_Banner_Image = Image.FromStream(ms)
                Else
                    Me.iLogo_Banner_Image = Nothing
                End If
            End Set
        End Property
        Public ReadOnly Property Logo_Banner_Image As Image
            Get
                Return Me.iLogo_Banner_Image
            End Get
        End Property
        Public Property Logo_Report As Byte()
            Get
                Return Me.iLogo_Report
            End Get
            Set(value As Byte())
                Me.iLogo_Report = value
                If Not Me.iLogo_Report Is Nothing Then
                    Dim ms As New MemoryStream(Me.iLogo_Report)
                    Me.iLogo_Report_Image = Image.FromStream(ms)
                Else
                    Me.iLogo_Report_Image = Nothing
                End If
            End Set
        End Property
        Public ReadOnly Property Logo_Report_Image As Image
            Get
                Return Me.iLogo_Report_Image
            End Get
        End Property
        Public Property LMDate As DateTime
            Get
                Return Me.iLMDate
            End Get
            Set(value As DateTime)
                Me.iLMDate = value
            End Set
        End Property
#End Region


    End Class

End Namespace
